home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / SmallTalk / alloc.c next >
C/C++ Source or Header  |  1995-08-25  |  1KB  |  40 lines
  1. /* xalloc and for smalltalk,
  2.    Copyright (C) 1984, 1989 Free Software Foundation, Inc.
  3.  
  4. This file is part of GNU Smalltalk.
  5.  
  6. GNU Smalltalk is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. GNU Smalltalk is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GNU Smalltalk; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20.  
  21. #include <stdio.h>
  22.  
  23. /* This name is used by alloca.c.  */
  24.  
  25. char *
  26. xmalloc(n)
  27. register unsigned n;
  28. {
  29.   register char *block;
  30.  
  31.   block = (char*)calloc(n,1);
  32.   if (block == NULL)
  33.     {
  34.       errorf("memory exhausted");
  35.       exit(1);
  36.     }
  37.  
  38.   return (block);
  39. }
  40.